(try-face-font, find-face, get-face): New aliases.

diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index 9e61577c97081353fbffdaa3e92e55815e3aa822..d1b541d34b923d2a72a85f217a78f21a8aeb5f93 100644 (file)
--- a/lisp/emacs-lisp/lucid.el
+++ b/lisp/emacs-lisp/lucid.el
@@ -98,6 +98,10 @@ bottom of the buffer stack."
   (switch-to-buffer
    (if (<= arg 1) (other-buffer (current-buffer))
      (nth (1+ arg) (buffer-list)))))
+
+(fset 'find-face 'internal-find-face)
+(fset 'get-face 'internal-get-face)
+(fset 'try-face-font 'internal-try-face-font)
 \f
 ;; Support the Lucid names with `screen' instead of `frame'.